﻿'#################################################################
'     Программа спроектирована и написана Чернявским Андреем
'              для курсовой работы по информатике,
'        весь код, от начала и до конца написан вручную.
' SVN проекта находится на http://code.google.com/p/testviewerbf/
'#################################################################
Public Class EndForm
    'Обявление переменных.
    Public Save_history_metod As Integer
    Public sball As String = 0
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Вычисление среднего балла.
        If Testbox.bal = Testbox.maxvopros Then
            sball = "5+ (великолепно)"
        End If
        If Testbox.bal > (Testbox.maxvopros \ 2) + (Testbox.maxvopros \ 4) Then
            sball = "5 (отлично)"
        End If
        If Testbox.bal < (Testbox.maxvopros \ 2) + (Testbox.maxvopros \ 4) Then
            sball = "4 (хорошо)"
        End If
        If Testbox.bal < (Testbox.maxvopros \ 2) Then
            sball = "3 (удовлетворительно)"
        End If
        If Testbox.bal < (Testbox.maxvopros \ 2) - (Testbox.maxvopros \ 6) Then
            sball = "2 (не удовлетворительно)"
        End If
        'Процент правильных ответов.
        Label4.Text = "Процент правильных ответов составляет: " & ((100 / Testbox.maxvopros) * Testbox.bal) & " %"
        'Ответов правильно.
        Label1.Text = "Ваши результаты: " & Testbox.bal & "/" & Testbox.maxvopros & " ответов правильно"
        Label3.Text = "Средний балл: " & sball
        Label5.Text = "Дата и время прохождения теста: " & DateString & " " & TimeString
        'Сохранение истории.
        If Save_history_metod = 0 Then
            mod_savefile()
        End If
        If Save_history_metod = 1 Then
            mod_MySql()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Закрытие.
        End
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Переход в начало программы.
        EnterForm.Close()
        AdminSetting.Close()
        Testbox.Close()
        EnterForm.Visible = True
        Me.Close()
    End Sub
End Class